home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / LPTSETUP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-02-02  |  2.0 KB  |  64 lines
  1. 10  'LPTSETUP - 13 AUG 92  rev. 02 FEB 97
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  COMMON EX$
  4. 40  CLS:COLOR 7,0,1
  5. 50  TB=7       'tab for text
  6. 60  PRINT
  7. 70  PRINT TAB(TB);
  8. 80  PRINT "Hard copies of HAMCALC screen displays look best when the printer"
  9. 90  PRINT TAB(TB);
  10. 100  PRINT "pitch is set at 12 characters per inch (ELITE type style)."
  11. 110  PRINT
  12. 120  PRINT TAB(TB);
  13. 130  PRINT "Hard copy printouts are made by scanning the screen for ASCII"
  14. 140  PRINT TAB(TB);
  15. 150  PRINT "characters and sending each character or space one-at-a-time to the"
  16. 160  PRINT TAB(TB);
  17. 170  PRINT "printer. No special buffers or drivers are required."
  18. 180  PRINT
  19. 190  PRINT TAB(TB);
  20. 200  PRINT "YOUR COMPUTER/PRINTER CONFIGURATION MUST SUPPORT STANDARD ASCII"
  21. 210  PRINT TAB(TB);
  22. 220  PRINT "CHARACTERS 128-254! If you are using WINDOWS 95, it may be necessary"
  23. 230  PRINT TAB(TB);
  24. 240  PRINT "to re-start the computer directly in MS-DOS mode to prevent WINDOWS"
  25. 250  PRINT TAB(TB);
  26. 260  PRINT "from changing certain standard ASCII characters to other icons."
  27. 270  PRINT
  28. 280  PRINT TAB(TB);
  29. 290  PRINT "The message below appears at the bottom of the screen whenever"
  30. 300  PRINT TAB(TB);
  31. 310  PRINT "appropriate. If you press <1> the message disappears and the printer"
  32. 320  PRINT TAB(TB);
  33. 330  PRINT "prints what remains on the screen. If you press <2> the same thing"
  34. 340  PRINT TAB(TB);
  35. 350  PRINT "happens and the paper advances to the next sheet (in printer jargon"
  36. 360  PRINT TAB(TB);
  37. 370  PRINT "this is called ";CHR$(34);"Form Feed";CHR$(34);"). In either case ";
  38. 380  PRINT "the message bar re-appears"
  39. 390  PRINT TAB(TB);
  40. 400  PRINT "and you can either print more copies of the screen or press <3> to"
  41. 410  PRINT TAB(TB);
  42. 420  PRINT "continue with the program."
  43. 430  PRINT
  44. 440  PRINT TAB(TB);
  45. 450  PRINT "If your equipment does not respond to the message bars the PRINT"
  46. 460  PRINT TAB(TB);
  47. 470  PRINT "SCREEN key on your keyboard should print the contents of the screen."
  48. 480  GOSUB 510:CLS:RUN EX$
  49. 490  END
  50. 500  '
  51. 510  'HARDCOPY
  52. 520  GOSUB 630:LOCATE 25,2:COLOR 14,6
  53. 530  PRINT " Press 1 to print screen, 2 to print screen & ";
  54. 540  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  55. 550  Z$=INKEY$:IF Z$="3"THEN GOSUB 630:RETURN
  56. 560  IF Z$="1"OR Z$="2"THEN GOSUB 630:GOTO 580
  57. 570  GOTO 550
  58. 580  FOR QX=1 TO 24:FOR QY=1 TO 80
  59. 590  LPRINT CHR$(SCREEN(QX,QY));
  60. 600  NEXT QY:NEXT QX
  61. 610  IF Z$="2"THEN LPRINT CHR$(12)
  62. 620  GOTO 520
  63. 630  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  64.